home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 24 / AMIGAplus Sonderheft 24 (2000)(Falke)(DE)[!].iso / PublicDomain / Anwendungen / MT-RechnungIII / PrintDoks / LieferscheinOB.outpri < prev    next >
Text File  |  1999-03-27  |  7KB  |  336 lines
  1. 1$VER: LieferscheinOB 1.01 (28.03.99)
  2. %!PS-Adobe-3.0
  3. %%Creator: Manfred Tremmel
  4. %%CreationDate: (28.03.1999)
  5. %%Version: 1.01
  6. %%Title: (MT-RechnungIII - Lieferschein ohne Beträge)
  7. %%LanguageLevel: 2
  8. %%DocumentMedia: A4 594 839 null () ()
  9. %%DocumentNeededResources: font Times-Roman
  10. %%BoundingBox: 0 0 549 839
  11. %%EndComments
  12. %%BeginnDefaults
  13. %%PageMedia: A4
  14. %%EndDefaults
  15.  
  16. %%BeginnSetup
  17. << /PageSize [594 839] >> setpagedevice
  18.  
  19. /PageSize [594 839] def
  20.  
  21. /DokumentRandX 60 def
  22. /DokumentRandY 45 def
  23.  
  24. DruckrandX 720 mul 256 div /DruckrandX exch def
  25. DruckrandY 720 mul 256 div /DruckrandY exch def
  26.  
  27. DruckrandX DokumentRandX ge
  28. {
  29.     0 /DokumentRandX exch def
  30. }
  31. {
  32.     DokumentRandX DruckrandX sub /DokumentRandX exch def
  33. } ifelse
  34.  
  35. DruckrandY DokumentRandY ge
  36. {
  37.     PageSize 1 get /DokumentRandY exch def
  38. }
  39. {
  40.     PageSize 1 get DokumentRandY sub DruckrandY add /DokumentRandY exch def
  41. } ifelse
  42. /DokumentRandYOriginal DokumentRandY def
  43. %%EndSetup
  44.  
  45. %%BeginnResource
  46. /reencodedict 5 dict def
  47. /ReEncode
  48. {
  49.      reencodedict begin
  50.      /newencoding exch def
  51.      /newfontname exch def
  52.      /basefontname exch def
  53.  
  54.      /basefontdict basefontname findfont def
  55.  
  56.      /newfont basefontdict maxlength dict def
  57.  
  58.      basefontdict
  59.      { exch dup dup /FID ne exch /Encoding ne and
  60.           { exch newfont 3 1 roll put }
  61.           { pop pop }
  62.           ifelse
  63.      } forall
  64.      newfont /FontName newfontname put
  65.      newfont /Encoding newencoding put
  66.      newfontname newfont definefont pop
  67.      end
  68. } def
  69.  
  70. /ISOLatin8Encoding
  71. [
  72.     ISOLatin1Encoding 0 164 getinterval aload pop
  73.     /euro
  74.     ISOLatin1Encoding 165 91 getinterval aload pop
  75. ] def
  76. /getfont {ISOLatin8Encoding ReEncode findfont exch scalefont def} bind def
  77. %%EndResource
  78.  
  79. %% Fontpsoidoname, Fontgroesse, Realname, Programm (siehe oben)
  80. /Times28 28 /OF0 /Times-Roman /OF0 getfont
  81. /Times28Line 28 def
  82. /Times14 14 /OF0 /Times-Roman /OF0 getfont
  83. /Times14Line 14 def
  84. /Times10 10 /OF0 /Times-Roman /OF0 getfont
  85. /Times10Line 10 def
  86. /Times8 8 /OF0 /Times-Roman /OF0 getfont
  87. /Times8Line 8 def
  88. Times14 setfont
  89.  
  90. /ZWDokumentRand DokumentRandY def
  91. /Seite 1 def
  92. /SeitenNr 4 string def
  93.  
  94. DokumentRandX DokumentRandY moveto
  95. DruckDatum 0 get dup stringwidth
  96. pop 486 exch sub
  97. DokumentRandX add DokumentRandY moveto show
  98.  
  99. %% Ausgab des Dokuments
  100. NiedAdresse3
  101. {
  102.     DokumentRandX ZWDokumentRand moveto
  103.     show
  104.     ZWDokumentRand Times14Line sub /ZWDokumentRand exch def
  105. } forall
  106.  
  107. /Position 0 def
  108. DokumentRandY 110 sub /DokumentRandY exch def
  109.  
  110. Times28 setfont
  111. DokumentRandX DokumentRandY moveto
  112. (Lieferschein) dup stringwidth
  113. pop 486 exch sub
  114. DokumentRandX add DokumentRandY moveto show
  115.  
  116. Times8 setfont
  117. Times8 /FontInfo known
  118. {
  119.     Times8 /FontInfo get dup dup dup /UnderlinePosition known
  120.     {
  121.         /UnderlinePosition get
  122.         Times8Line mul 1000 div cvi /Unterstreichabstand exch def
  123.     }
  124.     {
  125.         Times8Line -9 div cvi /Unterstreichabstand exch def
  126.         pop
  127.     } ifelse
  128.     /UnderlineThicknes known
  129.     {
  130.         /UnderlineThicknes get
  131.         Times8Line mul /Unterstrichdicke exch def
  132.     }
  133.     {
  134.         Times8Line 24 div /Unterstrichdicke exch def
  135.         pop
  136.     } ifelse
  137. }
  138. {
  139.     Times8Line -9 div cvi /Unterstreichabstand exch def
  140.     Times8Line 24 div /Unterstrichdicke exch def
  141.     pop
  142. } ifelse
  143.  
  144. NiedAdresse1
  145. {
  146.     newpath
  147.     DokumentRandX DokumentRandY Unterstreichabstand add moveto
  148.     stringwidth pop DokumentRandX add DokumentRandY Unterstreichabstand add
  149.     lineto closepath Unterstrichdicke setlinewidth
  150.     stroke
  151.     DokumentRandX DokumentRandY moveto
  152.     NiedAdresse1 Position get show
  153.     DokumentRandY Times8Line sub /DokumentRandY exch def
  154.     Position 1 add /Position exch def
  155. } forall
  156.  
  157. 0.5 setlinewidth
  158.  
  159. Times14 setfont
  160.  
  161. DokumentRandY Times14Line sub /DokumentRandY exch def
  162. ARRechEmpfNr (0) eq
  163. {
  164.     DokumentRandX DokumentRandY moveto
  165.     (Barverkauf) show
  166.     DokumentRandY 25 sub /DokumentRandY exch def
  167. }
  168. {
  169.     WempfAdresse3
  170.     {
  171.         DokumentRandX DokumentRandY moveto
  172.         show
  173.         DokumentRandY Times14Line sub /DokumentRandY exch def
  174.     } forall
  175. } ifelse
  176.  
  177. DokumentRandY 50 sub /DokumentRandY exch def
  178.  
  179. DokumentRandX DokumentRandY moveto
  180. (Ihre KundenNr.:) show
  181. DokumentRandX 120 add DokumentRandY moveto
  182. ARWareEmpfNr (0) ne
  183. {
  184.     ARWareEmpfNr show
  185. }
  186. {
  187.     ARRechEmpfNr show
  188. } ifelse
  189.  
  190. DokumentRandY Times14Line sub /DokumentRandY exch def
  191.  
  192. DokumentRandX DokumentRandY moveto
  193. (LieferscheinNr.:) show
  194. DokumentRandX 120 add DokumentRandY moveto
  195. DokumentNr show
  196. DokumentRandY Times14Line sub /DokumentRandY exch def
  197.  
  198. DokumentRandX DokumentRandY moveto
  199. (Lieferscheindatum:) show
  200. DokumentRandX 120 add DokumentRandY moveto
  201. ARLieferscheinDatum 0 get show
  202. DokumentRandY Times14Line sub /DokumentRandY exch def
  203.  
  204. DokumentRandX DokumentRandY moveto
  205. (Verkäufer:) show
  206. DokumentRandX 120 add DokumentRandY moveto
  207. VerkVorname show
  208. ( ) show
  209. VerkName show
  210. DokumentRandY Times14Line sub 20 sub /DokumentRandY exch def
  211.  
  212. 0 /Position exch def
  213. Times10 setfont
  214.  
  215. /Ueberschrift {
  216. /BoxX1 DokumentRandX def
  217. /BoxX2 486 def
  218. /BoxY1 DokumentRandY 2 sub def
  219. /BoxY2 Times10Line def
  220.  
  221. 0.9 setgray
  222. BoxX1 BoxY1 BoxX2 BoxY2 rectfill
  223. 0.0 setgray
  224. BoxX1 BoxY1 BoxX2 BoxY2 rectstroke
  225.  
  226. DokumentRandX 3 add DokumentRandY moveto
  227. (Artikel) show
  228.  
  229. DokumentRandX DokumentRandY moveto
  230. (Anzahl) dup stringwidth
  231. pop 80 exch sub
  232. DokumentRandX add DokumentRandY moveto show
  233.  
  234. DokumentRandX 85 add DokumentRandY moveto
  235. (Artikelbezeichnung) show
  236.  
  237. DokumentRandX 280 add DokumentRandY moveto
  238. (Einheit) show
  239.  
  240. DokumentRandX DokumentRandY moveto
  241. (MWSt) dup stringwidth
  242. pop 360 exch sub
  243. DokumentRandX add DokumentRandY moveto show
  244.  
  245. DokumentRandY Times10Line sub 5 sub /DokumentRandY exch def
  246. } def
  247.  
  248. Ueberschrift
  249.  
  250. ARPositionen
  251. {
  252.     /pos exch def
  253.  
  254.     %% Länge der Position ermitteln
  255.     pos 0 get 4 get length 1 add
  256.     pos 1 get 16 get length add
  257.     pos 1 get 11 get
  258.     {
  259.         0 ne
  260.         {
  261.             1 add
  262.         } if
  263.     } forall
  264.     Times10Line mul cvi 5 add
  265.     /Poslength exch def
  266.  
  267.     %% Mal schaun, ob noch genügend Platz ist, auf der Seite
  268.     60 DokumentRandY Poslength sub gt
  269.     {
  270.         Seite 1 add /Seite exch def
  271.         DokumentRandX 200 add 50 moveto
  272.         (Weiter auf Seite: ) show
  273.         Seite SeitenNr cvs show
  274.         showpage
  275.         /DokumentRandY DokumentRandYOriginal def
  276.         DokumentRandX 200 add DokumentRandY moveto
  277.         (Fortsetzung von Seite: ) show
  278.         Seite 1 sub SeitenNr cvs show
  279.         DokumentRandY Times10Line sub Times10Line sub /DokumentRandY exch def
  280.         Ueberschrift
  281.     } if
  282.  
  283.     %% Artikelnummer
  284.     DokumentRandX 3 add DokumentRandY moveto
  285.     pos 1 get 1 get show
  286.  
  287.     %% Menge/Anzahl
  288.     DokumentRandX DokumentRandY moveto
  289.     pos 1 get 2 get dup stringwidth
  290.     pop 80 exch sub
  291.     DokumentRandX add DokumentRandY moveto show
  292.  
  293.     %% Artikelbezeichnung
  294.     DokumentRandX 85 add DokumentRandY moveto
  295.     pos 0 get 3 get show
  296.  
  297.     %% Mengeneinheit
  298.     DokumentRandX 280 add DokumentRandY moveto
  299.     pos 0 get 5 get show
  300.  
  301.     %% MWSt-Prozentsatz
  302.     DokumentRandX DokumentRandY moveto
  303.     pos 1 get 8 get dup stringwidth
  304.     pop 360 exch sub
  305.     DokumentRandX add DokumentRandY moveto    show
  306.  
  307.     %% Artikelzusatztext
  308.     pos 0 get 4 get
  309.     {
  310.         DokumentRandY Times10Line sub /DokumentRandY exch def
  311.         DokumentRandX 85 add DokumentRandY moveto show
  312.     } forall
  313.  
  314.     %% Bemerkung
  315.     pos 1 get 16 get
  316.     {
  317.         DokumentRandY Times10Line sub /DokumentRandY exch def
  318.         DokumentRandX 85 add DokumentRandY moveto show
  319.     } forall
  320.  
  321.     %% Leerzeile dazu
  322.     DokumentRandY Times10Line sub 5 sub /DokumentRandY exch def
  323.  
  324.     %% Positionszähler erhöhen
  325.     Position 1 add /Position exch def
  326.  
  327.     %% Stack löschen und für die Tabelle wieder füllen
  328.     clear
  329. } forall
  330.  
  331. showpage
  332.  
  333. %%Trailer
  334. clear
  335. %%EOF
  336.